home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / MacGzip 1.0 / source / GNU / zip.c < prev   
Text File  |  1995-08-26  |  4KB  |  143 lines
  1. /* zip.c -- compress files to the gzip or pkzip format
  2.  * Copyright (C) 1992-1993 Jean-loup Gailly
  3.  * This is free software; you can redistribute it and/or modify it under the
  4.  * terms of the GNU General Public License, see the file COPYING.
  5.  */
  6.  
  7. /*
  8.  * Changed: August 19, 1995. spd for MacGzip 1.0
  9.  *     - time_stamp differs for MACOS
  10.  *     - don't include sys/types.h
  11.  */
  12.  
  13. #ifdef RCSID
  14. static char rcsid[] = "$Id: zip.c,v 0.17 1993/06/10 13:29:25 jloup Exp $";
  15. #endif
  16.  
  17. #include <ctype.h>
  18. #include "tailor.h"
  19.  
  20. #ifndef MACGZIP /* spd */ /* tailor.h was after this next line */
  21. #  include <sys/types.h>
  22. #else
  23. #  include "MacIO.h"
  24. #  include "FileTypes.h"
  25. #  include "Globals.h"
  26. #endif
  27.  
  28. #include "gzip.h"
  29. #include "crypt.h"
  30.  
  31. #ifdef HAVE_UNISTD_H
  32. #  include <unistd.h>
  33. #endif
  34. #ifndef NO_FCNTL_H
  35. #  include <fcntl.h>
  36. #endif
  37.  
  38. local ulg crc;       /* crc on uncompressed file data */
  39. long header_bytes;   /* number of bytes in gzip header */
  40.  
  41. /* ===========================================================================
  42.  * Deflate in to out.
  43.  * IN assertions: the input and output buffers are cleared.
  44.  *   The variables time_stamp and save_orig_name are initialized.
  45.  */
  46. int zip(in, out)
  47.     int in, out;            /* input and output file descriptors */
  48. {
  49.     uch  flags = 0;         /* general purpose bit flags */
  50.     ush  attr = 0;          /* ascii/binary flag */
  51.     ush  deflate_flags = 0; /* pkzip -es, -en or -ex equivalent */
  52.  
  53.     ifd = in;
  54.     ofd = out;
  55.     outcnt = 0;
  56.  
  57.     /* Write the header to the gzip file. See algorithm.doc for the format */
  58.  
  59.     method = DEFLATED;
  60.     put_byte(GZIP_MAGIC[0]); /* magic header */
  61.     put_byte(GZIP_MAGIC[1]);
  62.     put_byte(DEFLATED);      /* compression method */
  63.  
  64.     if (save_orig_name) {
  65.     flags |= ORIG_NAME;
  66.     }
  67.     put_byte(flags);         /* general flags */
  68.     
  69. #ifdef MAC_TIMEOFFSET /* spd, ejo */
  70.     put_long (time_stamp - MAC_TIMEOFFSET);
  71. #else
  72.     put_long(time_stamp);
  73. #endif
  74.  
  75.     /* Write deflated file to zip file */
  76.     crc = updcrc(0, 0);
  77.  
  78.     bi_init(out);
  79.     ct_init(&attr, &method);
  80.     lm_init(level, &deflate_flags);
  81.  
  82.     put_byte((uch)deflate_flags); /* extra flags */
  83.     put_byte(OS_CODE);            /* OS identifier */
  84.  
  85.     if (save_orig_name) {
  86. #ifndef MACGZIP /* spd */
  87.     char *p = basename(ifname); /* Don't save the directory part. */
  88. #else
  89.     char *p=ifname;
  90. #endif
  91.     do {
  92.         put_char(*p);
  93.     } while (*p++);
  94.     }
  95.     header_bytes = (long)outcnt;
  96.  
  97.     (void)deflate();
  98.  
  99. #if !defined(NO_SIZE_CHECK) && !defined(RECORD_IO)
  100.   /* Check input size (but not in VMS -- variable record lengths mess it up)
  101.    * and not on MSDOS -- diet in TSR mode reports an incorrect file size)
  102.    */
  103.     if (ifile_size != -1L && isize != (ulg)ifile_size) {
  104.     Trace((stderr, " actual=%ld, read=%ld ", ifile_size, isize));
  105.     fprintf(stderr, "%s: %s: file size changed while zipping\n",
  106.         progname, ifname);
  107.     }
  108. #endif
  109.  
  110.     /* Write the crc and uncompressed size */
  111.     put_long(crc);
  112.     put_long(isize);
  113.     header_bytes += 2*sizeof(long);
  114.  
  115.     flush_outbuf();
  116.     return OK;
  117. }
  118.  
  119.  
  120. /* ===========================================================================
  121.  * Read a new buffer from the current input file, perform end-of-line
  122.  * translation, and update the crc and input file size.
  123.  * IN assertion: size >= 2 (for end-of-line translation)
  124.  */
  125. int file_read(buf, size)
  126.     char *buf;
  127.     unsigned size;
  128. {
  129.     unsigned len;
  130.  
  131.     Assert(insize == 0, "inbuf not empty");
  132.  
  133. #ifdef MACGZIP
  134.     DoSystemTask();
  135. #endif
  136.     len = read(ifd, buf, size);
  137.     if (len == (unsigned)(-1) || len == 0) return (int)len;
  138.  
  139.     crc = updcrc((uch*)buf, len);
  140.     isize += (ulg)len;
  141.     return (int)len;
  142. }
  143.